10 INPUT"[147]DEVICE NUMBER";D
20 OPEN15,D,15
30 PRINT#15,"M-R"CHR$(0)CHR$(192)CHR$(1):GET#15,A$:A=ASC(A$)
40 IFA=56THENPRINT"NEW ROM":GOTO80
50 IFA=66THENPRINT"OLD ROM":GOTO80
60 IFA=132THENPRINT"128D":GOTO80
70 PRINT"NOT RECOGNIZED 1571 ROM"
80 CLOSE15